RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR ° 
RRR 

RRR 

RRR 

RRR 

RRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR ~=RRR 
RRR = RRR 
RRR = RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR 

RRR 

RRR 


Bie LR tal 


Ager A NR: Rae ILENE ak : es 


$i 

Sy! 

NT! 

NT! 

NT! 

NT! 

NT! 

NT! 

MMM MMP SSSSSSSSSSSS NT! 
MMM MMM SSSSSSSSSSSS NT! 
MMM MMM SSSSSSSSSSSS NT! 
HM MPA ME MM SSS NT! 
MMMM MM SSS NT! 
MMMMMM  MMMMMM SSS NT! 
MMM MMM) «6OMMM «SSS NT! 
MMM MMM MMM SSS NT! 
MMM MMM MMM «SSS NT! 
MMM MMM SSSSSSSSS NT! 
MMM MMM SSSSSSSSS NT! 
MMM MMM SSSSSSSSS NT! 
MMM MMM SSS NT! 
MMM MMM $$$ NT! 
HMM MMM SSS NT! 
MMM MMM SSS NT! 
MMB MMM $$$ NT! 
MMM MMM $ss NT! 
MMM MMM SSSSSSSSSSSS NT! 
MMM MMM SSSSSSSSSSSS | NTS 
MMM MMM SSSSSSSSSSSS NTS 
NT! 

NT! 

NT! 

NT! 

| NT! 

| NT! 

| NT! 

NT! 


| &S 


—_— 


| 


15 


**F 1LE**1D**RM1INPSCN 


2222222222 2222 
2222222222 2222 
zz 
2a 
22 
22 
4 
zz 
22222222222222 
2222222222 2222 
ww vu 
ww ww 
Vv vv 
Vv vv 
wv vv 
Vv WY 
Vv Vv 
vu Vv 


VWYVVYVYVYYYYUY 
VBWOYYVVYYVYYUY 


nn MNWMW 


ow MWMWMn 
umn mown nw 
nw “un nw 
wn own nw 
wn nw “wn 
“nw “wn “wn 
mn nm nn 
MwMWMw un 
MMMM mown 
aaaa 
aaaa 
aa aa 
aa aa 
aa aa 
aa aa 
aa aa 
aa aa 
aaaagaaaaaaaaaada 
aaaaaqaaqadadaoaaa 
22222222222 222 
2222222222 2222 
zz 
za 
za 
22 
zz 
Z2z 
22222222222 222 
22222222222 222 
ee —e 


= eo 
te tt ag ag ag ng mg Od ag 
Se eg ee ee Od og ee 
ew ~~ 
et eent 


Ct sek el el el ek el ce el oe el kl 
Cl ee el oe el el el ce ee el oe el 
-— -— 
-— -— 


mn mMunnwn 
nn MMWMnM 
nw nw “wn 
nn wn “wn 
nn nw wn 
nw “wn nw 
“nw nn wn 
“nn nn nn 
AMMM nn 
NNNM mn 
ae _—— 
—— oon 


LLLLLLLLLL 
LLLLLLLLLL 


15 
SYSSINPUT $, SEOD, & SDECK ROUTINES 


DECLARATIONS 


16-SEP-1984 00:49:27 VAX/VMS Macro v04-00 


RMSINPUT_SCAN = CHECK SYSSINPUT FOR $, SEOD, OR SDECK RECORD 


DCL_SCAN™ SUBROUTINE 


Page 
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RM1INPSCN SYSSINPUT $, SEOD, & SDECK ROUTINES 16-SEP-1984 HH AX/VMS Macro V04-00 Page 1 
v04- =SEP-1984 16:23:26 MS.SRCJRM1INPSCN.MAR; 1 (1) 


SBEGIN RMIINPSCN,000,RMSRMS1,<SYSSINPUT $, SEOD, & SDECK ROUTINES> 


PARA AARAAAAARAAALALAREAALALALEAASELASALE ALES ESE ASR EES EER ESSE SEES ESSE EEE RE 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


** ® 
:* ® 
‘® ® 
:* ® 
*® *® 
is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
i ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
te INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
:* COPIES THEREGF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
:® TRANSFERRED. * 
** aa 
* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
:* SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

® 
** ® 
*® 7 
*® ® 
*® ® 
-® * 
** * 


OOCCCCOCOCOOCSOOOCOoOoOoOoO 


pelo lolololojolololololololololeoleloio) 
COOCCCCCOOOCoOOoOOoOOoOooO 
peleolelelelelelelelelelelelelel ol el eala) 


AND 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


LAR RRRBARRASASSLSALALASALALASASAASERSEAS ELAS SRSA ERASE EERE SALES ARREARS ESSE SS 


x Facility: rms32 
Abstract: 
: this module performs end of file checking, as well as 


S$deck process ing for $get /$find on sys$input 
processing for the sequential file organization. 


; Environment: 


star processor running starlet exec. 
; Author: L Ff Laverdure, creation date: 29-JAN-1978 
; Modi fied By: 
v03-002 KBT0140 Keith 8. Thompson 20-Aug-1982 
Reorganize psects 
v03-001 KBT0085 Keith B. Thompson 13-Jul-1982 
Clean up some of the psect nonsence 
v02-006 RASO017 Ron Schaefer 21-Jul-1981 


Change tuffer management so it can work with stream files. 
In particular, this routine only scans the current buffer, 
the caller must provide an adequate buffer size. 


v005 REFORMAT Ken Henderson 30-JUL-1980 6:24 
the code was reformatted 


NOUS AR =O OD NAME WIN O OO NAME WN 0 OD NAMES WN 0 OD NOAOU EWN OWOONOUS Wr 


PUPS BB BE BB EE BE ANN NAW NPONPONPNONY NY 2 2 SS ee a es 


: Revision History: 


RMT INPSCN 
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L F Laverdure, 


Ig- 


SEP-1984 
SEP=1984 


0:23:06 


17*JUN-1978 20:57 


AX/VMS Macro V04-00 
RMS.SRCJRM1INPSCN.MAR; 1 


RI 
v¢ 


} 
F 15 | 
RM1INPSCN SYSSINPUT $, SEOD, & SDECK ROUTINES 16-SEP-1984 00:49:27 VAX/VMS Macro V04-00 Page 
v04- DECLARATIONS ~3EE= 138 93:33:56 RMS. SRCJRM1INPSCN.MAR; 1 . 3) 
8 $3 -SBTTL DECLARATIONS | 
89 ; 
re: ; Include Files: 
000 «90 | 
000 fh Em | 
; Macros: 
ae 
000 74 
000 75 SIRBDEF 
Bn8 6 SIFBDEF 
7 SDEVDEF 
000 78 SBDBDEF 
0000 79 SPIODEF 
0000 80 SRMSDEF 
0000 81 
44 Ht : 
000 83 ; macro to call dcl_scan subroutine, — up in-line argument List 
0000 84 ; of match string and equality branch offse 
0000 85 ; 
0000 86 
0000 fi -MACRO DCL_SCAN STR=,EQUAL=,DISP=W,?L 
0000 8 *DISP CL_SCAN 
0000 89 ASCIC %&S 
0000 90 L -BYTE EQUAL=L : offset to ‘‘equals'’ routine | 
0000 «(91 -ENDM DCL_SCAN 
0000 3 | 
0000 93 ; 
0000 94 ; Equated Symbols: 
0000 79 3 
0000 96 
00000009 0000 97 TAB : : horizontal tab 
00000061 0000 98 LOWERCA SE_A = 97 ; lower case a 
0000007A a 13 LOWERCASE_Z = 122 3; lower case z 
0000000F 0000 101 EODSTR_MAXLEN = 15 ; max. len. of end-of-data scan string 
0000 196 
0000 103; 
0000 104 ; 
0000 105 ; Own Storage: 
0000 106; 
0000 107 
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Ck 
SSINPUT FOR $, $ SEP=19 RMS.SRCIJRM1INPSCN.MAR; 1 (3). 
~SBTTL RMSINPUT_SCAN = CHECK SYSSINPUT FOR $, SEOD, OR SDECK RECORD 


++ 
RMSINPUT_SCAN 


rm$input_scan routine to check the current (non-terminal) record for 
matching the current sys$input end-of-data scan otemes this will be 
either a single '$' or some user-defined string. if the record matches 
a user-defined string, cause this record to be skipped and return a 
single rms$_eof error (i.e., do not latch), allowing further reads to 
access subsequent records. 


if matching a single ‘'$', check if the pio$v_eod flag is on, specifying 
that —_ a match of ‘$eod' is to be scanned for. if so, then proceed as 
for a match of a user-defined string above if the record contains $eod. 


if not matching $eod, try for a match on $deck, and if so perform appropriate 
en bg Ban if the record is not $deck, (i.e., it is some other record 
eginning with a ‘$'), return rms$_eof error and do not skip this record 

a me euneequans $gets or $finds by the user will also encounter this 

eof record. 


if the record matches none of the above cases, simply return. the record 
will be processed normally, that is, it will be gotten or found for the user. 


Input Parameters: 
rij impure area addr 


GI 
GI 
GI 
G 
I 
1 
I 
l 
I 
I 
L 
L 
Ni 
Ni 
P 
P 
P) 


3 ri10 ifab addr 

3 r9 irab addr 

3 r8 rab addr 

: r7 addr of end of buffer+1 

: r6 size of record in oytes 

3 ri addr of record in the buffer 


Implicit Inputs: 


the contents of the various structures. : 

pio$gt_endstr the current end-of-data scan string 

pio$v_e eod flag 

note: if sys$input is from a disk file and records are allowed to 
cross block boundaries, irb$b_mbc must be greater than 0, 
otherwise the processing of a record crossing a block boundary 
wit souse Sg to loop. it is assumed that rm$connect! has 
orced mbc ‘ 


(note: it has already been determined externally to this routine that , 
this is the sys$input stream, indirectly accessed, on a non-terminal device. 


outputs: 


A Wilt destroyed 
r status code 


Implicit Outputs: 


ma aa a a a a a kd td od 2 2 2 1 2 


DRED PADP Ass B SS BB EE ANNAN IANA PPONPINININININNY 2 2 OO OS SS 0 
MEW 9 OO NAUS WN OOO NAME WN OD OD NOAU EWN 0 ODNAUE WN OUOONOULS W000 


irb$l_curbdb may be cleared 


15 | 
1 
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RMI INPSCN SYSSINPUT $, SEOD, & SDECK ROUTINES =SEP-1984 00:49:27 VAX/VMS Macro v04-00 Page 
v04-000 RMSINPUT_SCAN = CHECK SYSSINPUT FOR $, $ aad 8:33:56 ERMS SRCIRMT INPSCN. MAR: 1 . 3) 
1 § : irb$v_find set if record is to be skipped (S$eod, user-defined 
167 ; eod, or $dec 
1 8 3 irb$v_ppf_eof set if Seod or user-defined eod. after record is 
0 18 3 skipped, flags return of rms$_eof status. in this 
0 170 ; case return status from rm$input_scan is rms$_suc. 
4 171 ; irb$v_ppf_skip set if record is $deck. causes next record to be 
$8 176 ; processed after $deck record is skipped. 
0 8 173 ; irb$v_ppf_fndsv saves original state of irb$v_find when irb$v_ppf_skip 
009 1% 3 is set 
000 178 ; completion code: 
0000 178 ; standard rms (suc or eof), except that a special code of hex 10000 will be 
0000 179 ; returned in r0 to indicate that record to be matched was not entirely 
0060 189 $ contained within the buffer. in this case the current bdb has been 
44 Va 3 released and the buffer need merely be refilled. 
0000 188 ; Side Effects: 
0000 «= 184 ; 
0000 185 ; matching the eod string resets the eod string to a single '$’. 
0000 186; Sdeck may set this to something else. 
0000 187 ; invalid syntax on '$* records will cause a hard eof, which will cause 
0000 188; the cli to process the offending record. 
0000 189 ; 
0000 190 ;-- 
191 


RMI INPSCN SYSSINPUT $, SEOD, & SDECK Routines’? 16-SEP-1984 00:4 AX/VMS Macro V04-00 Page 
v04-000 RMSIN SCAN = CHECK SYSSINPUT FOR $, $ Ses 7 98:53: $f RMS.SR che RM INPSCN. MAR; 1 . 
RMSINPUT_SCAN:: 
Assume entire record is contained in the buffer. 
51 DD PUSHL R1 3 save the current’ record offset 


53 Q0000000°9F 9 a#P1O$GT_EMDSTR,R3 get addr of end of Gata string 
2s 83 9 (R3)+,R2 get string length 
5 66 «6B 
0 1 
2 
1 


s record at least this long? 


Sete Ge Be 


SOOCOOCGCOOCOOOOOOCOOOOOSOOOOOOOOoOOoO Vz 


SSSSSSSSOSSSOSSOOSOSSOSOSSSSOOSSSSO CD 
2S SS SB SII BIOOOOOOOOOOOOOOOOSOOOO AC 


OP NNN NNN 2 FO OPPNINIPINIPVININWIOOOOOO 


193 
194 
13 
Hf 
199 
+e 
3 ; Mow try to match against end of data string 
Be 
b2 
OF 
08 
09 
10 
1] 
15 ; 
14 
4 
16 
17 
218 
219 


sucxit no = no match 
os 8 CMPC R2,(R1),(R3) >; eod string match? 
06 BEQL EOD_MATCH : branch if yes 
: no = simply return 
SUCXIT : RMSSUC 
02 BA SCNXIT: POPR #*M<RI1> 3 restore record address 
05 SCNRSB: RSB 
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v04 RMSINPUT_SCAN = CHECK SYSSINPUT FOR $, $ 5-SEP-1984 16:23:26 CRMS.SRCIRMIINPSCN.MAR; 1 (6) 
;++ 
; have matched the current end-of-data string 
; if matching a single '$', must check for Seod and $deck, else have 
; matched a user-defined (via S$deck) string and must skip it, giving 
3 a single eof error. 
EOD_MATCH: 

2401 8F G0000000'9F 861 CMPW @#P1OSGT_ENDSTR,#1+<*A/$/a8> ; are we matching single ‘'$'? 
9 ig BNEQ ND ; branch if net 
50 «(56 s. € SUBL3 #1,86,RO0 3 set remaining byte count 
DCL_SCAN <EOD>,EQUAL=END_OF _DATA1 ; scan for ‘eod' 


t record not $eod 


DB 00000000'9F 01 £0 BBS #PIOSV_EOD ,a#PIO$GW_STATUS,SUCXIT ; branch if only matching ‘$eod' 


DCL_SCAN <DECK>,EQUAL=GOT_DECK ; scan for ‘deck' 


SDOOOOCOSOOSOOSOOOCOOSOOSOOSOSOSOOSOOYVSOO 


SSOOSSOSSOSSSCOSOSOSCOSCOSOSOSOSOSOSOSO 
BREE FWWWWWII 0 2 3 3 
MMMM EERE RAODAOVVOTVUTODCDUCTTT0O 


: have found a ‘$' record that is neither $eod nor $deck. 


GUSTS Be BS BS BS BB EAI III inonononononononony 


MEAN HO CONAN WN 0 ODNOUE WO OD NOUS Wir 


Bote ; return rms$_eof and reset the nrp to find this record again. 
0045 on 
0045 2 
0045 255 SETEOF: RMSERR EOF 
40 A9 48 A9 7D OO4A 2 MOVQ IRBS$L_RP_VBN(R9) , IRBSL_NRP_VBN(R9) 
C9 11 OO4F 2 BRB SCNXIT 


DD 


K 
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V04 CAN = CHECK SYSSINPUT FOR $, $ ae Yi 13:33:36 RMS.SRCJRM1INPSCN.MAR; 1 a 


1 7 
} 8 hd 
! rs ; have encounter user-defined end-of-data string 
1 86 : reset end-of-data scan string to match a single '$' 
be} 5e¢ ih 
051 96 END_OF _DATA: 
00000000'9F 2401 8F BO 0051 6 MOVW #1+<*A/$/28>,a#PIOSGT_ENDSTR 
08 11 bee o8 BRB E0D1 
G3 370 
093¢ e : have encounter $eod 
Bpee 74; clear irb$v_ppf_eod so that any '$' record will give eof error, and 
Baer eA ; set irb$v_ppf_eof to cause eof to be returned after record has been skipped. 
ae 
005C 279 END_OF_DATA1: 
00000000 ' 9F 96 8A 8036 80 BICB2 #1aPlO$V_EOD,a#PIO$GW_STATUS; clear eod flag 
5 DS 006 81 TSTL RO 3 any other tokens seen? 
DE 12 0065 Ht BNEQ SETEOF : branch if yes (error) 
0067 : EOD1: SSB #IRBSV_PPF_EOF ,(R9) 3 cause eof to be returned 
0068 4 SET_FIND: 
0068 85 #IRBSV_FIND, (R9) ; set find bit to skip record 
Aé 11 OO6F 286 SUC_BR: BRB SUCXIT 


<Dw 


RM1INPSCN 
vo4-006 


00000000 ' 9F 


DF 69 
DF 69 


c8 


02 


29 


SYSSINPUT 
RMS INPUT 
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~m 


mm 
we 


SEOD, & 
= CHECK 


SN 


Pode dete Te Te Te Pe dw) ~) ~] ~) ~ i ~~) ~~) ~) ~~) ~~) ~) ~) se ae | 


DOoOOCCOCOOOCOOOOOCOCOOOOOOOOOoOoOOoOoO 
CGOOCCCoCCCooooooooooooooo 
MMR 2 2 SS | SH QOOCDOOOOCOOCOWOWOOOOOOOO 


MRM OODNAUES WN $9 ODNAUES WN QOWOONOULS Wry 
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SYSSINPUT FOR $, $ 'SaSEP=19B6 So38i56 AMSVES Magee = 

have found $deck 

scan for /dollars qualifier 


GOT_DECK: 
DCL_SCAN </DOLL>,EQUAL=GOT_DOLLARS 


; scan for ‘/doll’ 
BNEG SETEOF 


3; branch if something other than 
: "/doll’ seen (error) 

++ 

> saw $deck, either with no qualifier or with /dollars and either a null or 

3 no argument. 

: in any case, set pio$v_eod to indicate ‘$eod' is the locical end-of-data string 
se Tego: BISB2 #1aPI0$V_EOD,a#P10$GW_STATUS 


~ $8 #IRBSV_PPF_SKIP,(R9) ; set flag to skip $deck record 


: and read the next 


BBC #IRBSV_FIND,(R9),SET_FIND; branch if Going $get 
BBCS #IRBSV_PPF_FNDSV,(R9),SUC_BR; save find bit and branch 


aw 


NPSCN.MAR; 1 (10) 
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9 4 
9 5 34+ 
9 $ ; 
3 ; have found $deck /dollars 
3 3; scan for end-of-data string value indicator (‘=" or ':') 
$90 § GOT_DOLLARS: 
bee : DCL SCAN <:>,EQUAL=GOT_ARG 3; scan for ':' 
a w& O36 § BEQL SETEOD ; branch if nothing else in record 
O09 , DCL_SCAN <=>, EQUAL=GOT_ARG :; scan for ‘=' 
AS 11 009 9 BRB SETEOF ; bad syntax - give eof error 
O0A0 340 . : 
QOA0 41 ;++ 
OOA0 rt: : 
OQO0A0 43 ; have found $deck /dollars : 
OO0A0 44 ; 
00A0 45 ; scan for end-of-data string value 
QO0A0 46 ; 
00A0 47 ;-- 
O0OA0 48 
00A0 49 GOT_ARG: 
Boag 50 DCL_SCAN <'"> EQUAL=GOT_QUOTE ; scan for quoted string 
DS 613 Q0A6 51 Beac SETEOD ; branch if nothing else 
00A8 26 
QOA8 53 ++ 
00A8 54; 
Baas 22 3; have an unquoted, non=-nuil end-of-data string value described by r0,r1 
OOA8 357 ; copy characters to end of data string up to first blank, tab or ‘'!"', 
00A8 28 3 converting them to upper case. 
00A8 59 ; 
0OA8 60 3-- 
Baas 61 
52 01 DO QOA ¢ MOVL #1,R2 : flag unquoted string value 
02 11 QOAB 6 BRB UNQUOTED 
OOAD 64 
OOAD 65 ;++ 
OOAD $6 3 “ 
m4 ot 3; have found $deck /dollars : 
OAD 69 : scan for closing quote, moving characters to end of data string. 
OAD 70 ; process such that successive double quotes cause a single double quote 
QOAD 71 ; to be entered into the end of data string. 
OAD it $ 
OAD 74 
AD 75 GOT_QUOTE: ? 
52 D4 AD 6 CLRL R2 :; flag quoted string 
AF 77 UNQUOTED: 
55 D4 AF 8 CLRL R5 ; build string count here 
py) 0900009" °F 9E B1 7 MOVAB a@#PIOSGT_ENDSTR,R4 ; addr of eod string length 
5 01 AS o9E B8 80 MOVAB 1(R4),R3 ; addr of eod string tex 


maw 


-=0OMN—CoO- 3~< 


WW @ono— mun 


Wo 


—o 
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4-4-4 - 4-4-4 4-444 - A 4-4-4 4-181 8181588 
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SOOQoOoooooooooooooSao 
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AN = CHECK SYSSINPUT FOR $, $ ets 7 96:33:56 LRMS SRCIRMT INPSCN.MARS 1 
BRB 20$ 3 gO process characters 
+4 MOVB (R1)+,(R3)+ 3 Pope char to eoa string 
20$ DECL Re 3 any more characters? 
BLSS 60$ ; branch if not 
BLBS) = «RZ, 458 ; branch if unquoted string 
CMPB (R41) WS A/"'/ ; matching quote? 
BEQL 50$ 3; branch if yes 
30$ AOBLEQ #EODSTR_MAXLEN,R5,10$  ; count char. and branch if ok 


; exceeded max character count. reset eod match string to single '$'. 


40$: MOVB #*A/$/,1(R4) 3; restore match string 
BRW SETEOF 3 gO give error 


+ 
+ 


unquoted string 


move character to e-o-d string unless it's blank, tab, or ‘'!" 
and convert to upper case. 


45$: CMPB oWOA/ / space? 
branch if yes 
o#TAB tab? 
branch if yes 


: branch if yes 
lower case char? 


R1) 
5$ 
R1) 
5$ 
R1),#*A/!/ 
5$ 
R1) 
0$ branch if not 


»#LOWERCASE_A 
(R1) ,#LOWERCASE_Z 
BGTRU 30% 

AOBLEQ #EODSTR_MAXLEN,RS,48$ count char. & branch if ok 
BRB 4 process eod length error 


3 go 
SUBB3 #LOWERCASE_A-*A/A/, (R1)+,(R3) 6: convert to upper case 
BRB 20$ 3; go get next char. 
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found a double quote character while processing quoted string 
check next char. for double quote and include only one if found 


50$: DECL RO 3 any more characters? 
BLSS 60$ ; branch if not 
INCL R1 ae ; point to next char 
CMPB (R1),#*A/"'/ ; is it another “* ? 
BEQL 30$ 3; branch if yes 


have completed string value, but remaining string is non-null. 
give an error if anything other than blanks, tabs, or comment. 


55$: INCL RO ; restore character count 
BSBW BLNK_SKIP 3; skip blanks and tabs 
BNEQ 40$ ; branch if other than comment 


end of data string set up o.k. 
store length anc go skip record. 


60$ TSTB R5 3 any chars processed? 
BNEQ 70$ 
BRW SETEOD ; branch if none 

70$: MOVB R5,(R4) 3 store count 
BRW SET_SKIP : go skip record 


C 16 
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465 -SBTTL OCL SCAN SUBROUTINE 


Macro v04-00 Page 13 
6 LRMS.SRCIRMIINPSCN.MAR;1 (15) 


= 

o 
+ 

+ 


dcl_scan subroutine to scan for next token and compare it to one 
oerne searched for. case is not significant for the compare. 
any initial blanks or tabs are skipped over. 


if the strings match, the return is made to the address specified in the 
“equal’’ input argument, otherwise return is made in ° 
note that the dcl_scan macro is used to set up the in-line argument List 


in the case of strings other than length 1, any characters followin 
the matched characters and before the next terminator are considere 
to be part of the token and are also a ye in setting the remaining 
string descriptor, as are any trailing blanks or tabs. 


inputs: 


rd remaining string length 

ri remaining string start address 

(sp) counted, upper-case string to match 
(sp)+count branch byte offset for equal compare 


09 G0 CS CO C9 09 09 C9 C908 SII NIN 
SOOWONAOUE WN OOONOUS wr 


SeGe Ge Ge Ge Ge Se Se Ge Ge Ge Ge Se Se Ge Ge Ge Se Ge GS. Ce Se Ge Se Ge Se Fe Se Se Se Ge Se Fe Se Se Se Se 


outputs: 


Saddle Dake tale dea De dl Dl de ee ee ee el ee ek ada 


r0 Length of remaining oerin (past token and possible 
trailing blanks if matched) 


ri address of remaining string 
r2-r5,ap destroyed 


notes: 


1. if no match, r0 & rl will be updsted to point past any initial 


499 spaces and or tabs 


(r5 now points to string) 


fell ele le lel alo lal ole ol al olel ola olololelolel ol olelealelelealeolalelelelelelelelelelelelelolelelololelalelelelola o—E ar 4 
PP \ \ PP ANNE EHS LM MMMM MMMM MMMM MMM MmMMrnimMMmMmMmmmmmmMmmmmmmmmmmmnmrncy 

o 

~ 


500 2. r0 will be set to 0 on return if no string or only a comment remains 
4 3. z-bit will be set based on r0 
i 
09 2F 3A 3D 21 20 505 TRMLST: .ASCII \_ !=:/\<TAB> 
00000006 208 TLSTSZ=.-TRMLST 

55 6€ 00 265 BCL SCAN OL (SP) ,R5 :; get addr of counted ascii 
a : 
216 match string 

54 85 QA $15 MOVZBL (R5)+,R4 ; get length of string 
ge 
8 
35 


6—€ 54 C0 


ADDL2 = R4,(SP) ; bump return address ... 
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6—E 06 } 4 ¢ INCL (SP) i se. to point past ascii string 
10F 4 ;++ 
12F 5 3 
: ‘ § ; skip initial spaces and tabs 
4 F 8 :-- 
4 F S 
55 19 12F 0 BSBB BLNK_SKIP ; skip tabs and blanks 
4—E 1 4 1 1 BEQL NULL_STRING ; branch if nothing left 
gee 
ois 535 : the string desribed by r0, rl is of non-zero length and does not begin 
oR : § ; with tab, space, or ‘'!"' 
ae 235 : see if it matches the scan string (described by r4 & r5) 
0133 540 :-- 
B13 541 : 
52 50 7D Q13 rr) MOVQ RO,R2 3; save remaining ien and addr 
50 54 C2 0136 54 SUBL2 R4,R0 3 at least match count long? 
43 19 0139 544 LSS NOMATCH ; branch if not 
54 DD 0138 545 PUSHL R4 3; save match string count 
5¢ }6881—_ (90 «(013D = 546 «108: MOVB (R1)+,AP 3 get next byte 
61 8F 5C 91 0140 547 CMPB AP ,#LOWERCASE_A ; lower case? 
09 1F QO144 548 BLSSU 3; branch if not 
7A 8F 5C 91 0146 549 CMPB AP ,#LOWERCASE_Z ; well, is it? 
03 1A O16A 550 BGTR ; branch if not 
5C 20 82 O14C 551 SUBB M#LOWERCASE_A - <“*A/A/>,AP; convert to upper case 
85 5¢ 91 O14F 552 20$: CMPB AP, (R5)+ ; match? 
28 12 0152 553 RNEQ UNEQUAL : branch if not 
E6 54 «=FS) «(0154 554 SOBGTR R4,10$ ; loop 


OUND -VIMNMNOWOul— oo 
NNT WIUWINNIWwNOom 


BE 
52 
6E 
50 


“oO 
—O 
za: 
mn 


—OWOUINO SVP - OWN 


AO] NO9 Twa so 
OOO OO O09 00 09 09 09 09 09 09 09 09 SI NINSI SIN NINN SNA A AAAAAOAOMIIUIN or 


CGOOOCCOCOCOOCOCOCOCOCOCOCOOCOCCOCOCOOC COO COCOCOOOCOOOOOOOOOOOoOoO 
— ae ss = = = + 4s ss 2 a 2 | SY SS SS SS SY YS 
090000 0000 SIN IN NNN SSS SSNS NSS SNP PAA AA IIT 
VWI FHM AOOOOOOOOOO SIW MOE SF NOM D OV 
SSSLVESRAN SSSR ESS aOR NSS SIS SFOS SSS eG 


DPV V PVD SV IV IVI IV IUSDUSUSUSLUSUST SUSU USUSUSVSUSUSUSUS USS VS VSS TSI USS ISIS ISIS 


ouowono 


E 16 
& SDECK ROUTINES 


+ 
> 


strings are equal 


+ 
+ 


30$: .os5 (R3)+,#TLSTSZ,TRMLST 


DECL  (SP)+ 

BEQL 60% 

MOVO RO, R2 

BRB 40$ 

BNE 50$ 
40$: SOBGEQ R2,30$ 
50S: INCL Re 

DECL OR 

MOVO = R2,R 

BSBB ss BLNK_SKIP 


p 
ADDL2 = R2, (SP) 
BRB SCAN_XIT 


UNEQUAL 

(SP)+ 
NOMATCH 

R2,RO 
NULL_STRING 

(SP) 
SCAN_XIT: 

TSTL = RO 


if match count is not 


in any case, take the ‘‘equal="" exit 


Be te Be 


1984 00:49:27 VAX/VMS M v04-00 
1982 16:23 5 RATT 


726 CRMS.SRCIRM1INPSCN.MAR; 1 


not scan to end of token and then to start of next token 
(end of token is indicated by space, tab, !, /, =, or :) 


was match count = 1? 
branch if yes 
save remaining descriptor 


is character a delimiter? 
branch if yes 

Loop if more characters 
don’t count terminator 

or point past it 


the input string didn't contain the match string 
leave r0,r1 describing any remaining string and take in-line (non-equal) return 


pop saved match count 


; restore save descriptor 
skip past ‘‘equal’’ return offset 
; set 2 bit according to r0 


RM1INPSCN SY 
v04-000 dC 


“40 
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ne 
oz 
ze 
por) 
Ss? 
@ 


+ 
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blnk_skip subroutine to skip past blanks and tabs, up to possible comment 
or end of input string 


inputs: 
r0 input string Length 
ri input string address 
outputs: 
r0 remaining string length after blanks and tabs skipped 


(if only a comment left, r0 will be set to zero) 
ri remaining eee ine address 
z-bit set if no more input (other than comment), else clear 


AO a Oe Be He Be Oe Se Be Se Be Se Se See Se Sete 


PXEARALAAAAAA AAAS AAA A AAA AAAOA OA 


WANN ANANAAIAIRIPOPIPIPPYNPINPONNINY 4 2 OP OO SO KH COOOOOCOCOCO OM 
SODWNANE WN OS ODNAULS WN OO OONAUE WN OOONAUSWNR Cm 


LNK_SKIP: 
61 50 20 3 0$: SKPC #*A/ /,R0,(R1) ; skip spaces 
12 1 BEQL ; branch if nothing but spaces 
61 O98 91 CMPB #TAB,(R1) 3; is char tab? 
06 12 BNEQ 208 ; branch if not (done) 
50? DECL RO ; yes - decrement count 
51 D6 INCL Bt 3; skip tab Ea 
EF 11 BRB 10$ 3; and continue skippin 
61 21 91 20$: CMPB #*A/'/,(R1) ; do we have a comment? 
02 12 BNEQ 30$ 3 branch if not : 
50 4 CLRL RO ; yes - say end of input 
05 30$: RSB ; return with z-bit set if no 


: more input 


pe we be lw wlan lawl alo loleleloalaleoleolelolelelelealalealeololelelelelelelelalaloal alot) 
OB Rk kd a dd a 


WO OOO 0000000000000 00 00 00 00 G0 00 0D 0D CD CO CU CD C9 OD CD CD CO CD CO CD CD CD 
ee de al le al al al eal eal tales eal eal eal ealeslesese lee ele eee.) 


AOARCAGAOCAOAAOO 


a 


- END 


RM1INPSCN 
Symbol table 


$$.PSECT_EP 
SSRMSTEST 


UNEQUAL 
UNQUOTED 


PSECT name 
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8 00 
1A 
0 8 
000 
00 4 
000186 R 1 
000124 R 1 
8 0 8° 1R 1 
000 26 R 01 
4444 443 a 01 
see ised . 07 
Q00000A0 RO 
4 58 R 01 
0000090 R 01 
OOOOOOAD R 91 
00000040 
00000048 
00000029 
000000 F 
000000 
0000002F 
00000061 
0000007A 
0000017E R 01 
00000181 R 01 
eekeeeee x 07 
keekeeee x 01 
00000001 
00000000 RG 01 
0001827A 
00000183 R 01 
QOO000IC R 01 
QOOOO0IA R 01 
0000007D R 01 
00000045 R 01 
00000068 R 01 
00000084 R 01 
00000017 R 01 
OOOOO6F R 01 
0000009 
00000006 
QOOOO11E R 01 
see HES R 01 
OOOOOAF R 01 
gown wr ewe rece ne secs & 
. H Psect synopsis ! 
Allocation PSECT No. Attributes 
00000000 ( g-} 69 ( 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
QO00019F (¢ 415.) 1¢ 1.) PIC USR CON REL GBL NOSHR EXE RD NOWRT NOVEC BYTE 
00000000 0.) 02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 


17 
(19) 
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+ + 
Performance indicators H 


: 
onan wae = Cea DROBO MOD EOS ES 


Phase Page faults CPU Time Elapsed Time 
Initialization | 5 00:00:0 98 00:00:00.93 
Command processing 132 0:00: g 0 8 2B » 
Pass 1 271 0 8 207.54 0:00:22. 
syste table sort 123 f : 2:08 00:00: 4 
as :00:02. :00:08. 
Symbol table output ‘00; ¥ 8: 8:8 + 
Psect synopsis output 3 00:00:00.0 00:00:00.02 
Cross-reference output 8 ae eB 1 St a 
Assembler run totals 571 00:00:11.4 00:00:39.74 


The working set Limit was 1200 pages. ; 

42967 bytes (84 pages) of virtual memory were used to buffer the intermediate code. 

There were 40 pages of symbol table space allocated to hold 747 non-local and 28 local symbols. 
640 source Lines were read in Pass 1, producing 14 object records in Pass 2. 

20 pages of virtual memory were used to define 19 macros. 


: 
Poet nemo ocean ee aaa eo emo me + 


Macro Library name Macros defined 
_$255$DUA28: CRMS .OBJIRMS.MLB; 1 10 
_$255$DUA28: (SYS .OBJIJLIB.MLB; 1 0 
$255$DUA28: CSYSLIBISTARLET.MLB;2 4 
TOTALS (all Libraries) 14 


832 GETS were required to define 14 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:RM1INPSCN/OBJ=OBJ$:RMTINPSCN MSRC$:RM1INPSCN/UPDATE=(ENH$:RM1INPSCN) +EXECML$/LIB+LIB$:RMS/LIB 
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